-- card: 68411 from stack: in.
-- bmap block id: 71925
-- flags: 0000
-- background id: 72532
-- name: Title Card


-- part 1 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=23 top=214 right=279 bottom=123
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Personalize
----- HyperTalk script -----
on mouseUp
  repeat forever
    ask "Please enter your area code."
    if the number of chars in it <> 3 and it is not empty then
      answer "The area code must be a three digit number." with "Ooops"
    else
      exit repeat
    end if
  end repeat
  if the number of chars in it = 3 then
    set the name of bg button 1 of first card of bg "Main" to "Your Area Code:" && it
    if not AreaCodeChanged(it) then
      answer "Sorry, can't find that Area Code." with "OK"
      answer "Click the Personalize button to try again" with "OK"
    end if
  end if
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=130 top=215 right=276 bottom=236
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  go card "Help"
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=242 top=215 right=280 bottom=349
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: FIND
----- HyperTalk script -----

on mouseUp
  Ask "Find what?"
  if it is not empty and the result is not "Cancel" then
    put it into findString
    put "Find " & quote & findString & quote into msg
    find findString
    if the result is not empty then
      answer findString && "not found."
    end if
  end if
end mouseUp


-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=364 top=256 right=287 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Credits
----- HyperTalk script -----
on mouseUp
  go to card "Credits"
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=10 top=8 right=55 bottom=35
-- title width / last selected line: 0
-- icon id / first selected line: 3071 / 3071
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Quit
----- HyperTalk script -----
on mouseUp
  doMenu "Quit HyperCard"
end mouseUp



-- part contents for background part 1
----- text -----
Friday, March 13, 1992

-- part contents for background part 3
----- text -----
-8

-- part contents for background part 5
----- text -----
DST